VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "Untitle"
   ClientHeight    =   4860
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   6810
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "formmain"
   ScaleHeight     =   4860
   ScaleWidth      =   6810
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Labelshow 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Preview"
      Height          =   195
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   570
   End
   Begin VB.Menu c_general 
      Caption         =   "General"
      Begin VB.Menu c_new 
         Caption         =   "New"
         Shortcut        =   ^N
      End
      Begin VB.Menu c_open 
         Caption         =   "Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu c_line0 
         Caption         =   "-"
      End
      Begin VB.Menu c_save 
         Caption         =   "Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu c_saveas 
         Caption         =   "Save As"
      End
      Begin VB.Menu c_line1 
         Caption         =   "-"
      End
      Begin VB.Menu c_properties 
         Caption         =   "Properties"
         Begin VB.Menu c_font 
            Caption         =   "Font"
         End
         Begin VB.Menu c_color 
            Caption         =   "Color"
         End
      End
      Begin VB.Menu c_line2 
         Caption         =   "-"
      End
      Begin VB.Menu c_exit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu c_edit 
      Caption         =   "Edit"
      Begin VB.Menu c_undo 
         Caption         =   "Undo"
         Enabled         =   0   'False
         Shortcut        =   ^Z
      End
      Begin VB.Menu c_redo 
         Caption         =   "Redo"
         Enabled         =   0   'False
         Shortcut        =   ^Y
      End
      Begin VB.Menu c_line4 
         Caption         =   "-"
      End
      Begin VB.Menu c_cut 
         Caption         =   "Cut"
         Enabled         =   0   'False
         Shortcut        =   ^X
      End
      Begin VB.Menu c_copy 
         Caption         =   "Copy"
         Enabled         =   0   'False
         Shortcut        =   ^C
      End
      Begin VB.Menu c_paste 
         Caption         =   "Paste"
         Enabled         =   0   'False
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu c_help 
      Caption         =   "Help"
      Begin VB.Menu c_about 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub c_about_Click()
    Load frmAbout
    frmAbout.Show
End Sub

Private Sub c_color_Click()
    Load frmcolor
    frmcolor.Show
End Sub

Private Sub c_copy_Click()
    'Add 'copy' button code.
    msgbox "Add 'copy' button code."
End Sub

Private Sub c_cut_Click()
    'Add 'cut' button code.
    msgbox "Add 'cut' button code."
End Sub

Private Sub c_exit_Click()
    End
End Sub

Private Sub c_font_Click()
    Load frmfont
    frmfont.Show
End Sub

Private Sub c_new_Click()
    'Add 'new' button code.
    msgbox "Add 'new' button code."
End Sub

Private Sub c_open_Click()
    Load frmopen
    frmopen.Show
End Sub

Private Sub c_paste_Click()
    'Add 'paste' button code.
    msgbox "Add 'paste' button code."
End Sub



Private Sub c_redo_Click()
    'Add 'redo' button code.
    msgbox "Add 'redo' button code."
End Sub

Private Sub c_save_Click()
    'Add 'save' button code.
    msgbox "Add 'save' button code."
End Sub

Private Sub c_saveas_Click()
    'Add 'save as' button code.
    msgbox "Add 'save as' button code."
End Sub

Private Sub c_undo_Click()
    'Add 'undo' button code.
    msgbox "Add 'undo' button code."
End Sub

